home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00092_Script_#bio window text window script < prev    next >
Text File  |  1997-07-29  |  2KB  |  53 lines
  1. global sub_open
  2. on mousedown
  3.   if sub_open = FALSE then shift_down  
  4. end
  5.  
  6.  
  7.  
  8. on mouseUp
  9.   waitcursor the clickon
  10.   if sub_open = FALSE then
  11.     
  12.     set obj_key = "txt_"& item 1 of the framelabel&item 2 of the framelabel & item 3 of the framelabel&"t"
  13.     
  14.     
  15.     
  16.     see_sprite([35,36,43],false)
  17.     set_puppets([25,27,28,29,30,31,32,33,34,37,38,40,41],true)
  18.     
  19.     global biotextprops
  20.     set bit_rect =  getaprop(biotextprops,obj_key)
  21.     
  22.     set the castnum of sprite 25 = cast "sub_text"
  23.     spritebox 25, the left of bit_rect, the top of bit_rect, the right of bit_rect, the bottom of bit_rect
  24.     
  25.     wrapmedia("sub_text",25,[27,28,29,30,31,32,33,34,35,36,37],bit_rect)
  26.     
  27.     
  28.     --    sprite 38 is the text sprite
  29.     set the rect of cast obj_key = rect(0,0,(the right of bit_rect - the left of bit_rect) - 50,((the bottom of bit_rect - 28) - (the top of bit_rect + 18))) 
  30.     
  31.     set the castnum of sprite 38 = the number of cast obj_key
  32.     global clipcast
  33.     set clipcast = obj_key
  34.     
  35.     spriteBox 38, the left of bit_rect + 25, the top of bit_rect + 18, the right of bit_rect, the bottom of bit_rect
  36.     
  37.     --  if the ink of sprite 38 <> 36 then set the ink of sprite 38 = 36
  38.     
  39.     set the_center = (the right of bit_rect - the left of bit_rect) / 2
  40.     
  41.     spritebox 40, the left of bit_rect + the_center - 25, the bottom of bit_rect - 23,the left of bit_rect + the_center - 25 + the width of sprite 40, the bottom of bit_rect - 23 + the height of sprite 40
  42.     spritebox 41, the left of bit_rect + the_center + 5, the bottom of bit_rect - 23, the left of bit_rect + the_center + 5 + the width of sprite 41, the bottom of bit_rect - 23 + the height of sprite 41 
  43.     --  see_sprite([40,41],true)
  44.     
  45.     global sub_open
  46.     set sub_open = 1
  47.     updatestage
  48.     see_sprite([25,27,28,29,30,31,32,33,34,37,38,40,41],true)
  49.     
  50.   end if
  51.   set_cursors([the clickon,9,11,12,17,18,19,37,30])
  52. end
  53.